* xml.c (make_dom): Return comments, too.

diff --git a/src/ChangeLog b/src/ChangeLog
index 0d199b8b0cfc5e134bbf19a284c7778923990f66..827191d5a1b692c7bf4094e5a34006b8affb2b42 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * xml.c (make_dom): Return comments, too.
+
 2011-07-19  Paul Eggert  <eggert@cs.ucla.edu>
 
        Port to OpenBSD.

diff --git a/src/xml.c b/src/xml.c
index 63041c96b24ff524332a3eb846d3c43c95a479ae..6dd52638b7de315a9f8c45632b1d26df16ac97e5 100644 (file)
--- a/src/xml.c
+++ b/src/xml.c
@@ -71,6 +71,14 @@ make_dom (xmlNode *node)
       else
        return Qnil;
     }
+  else if (node->type == XML_COMMENT_NODE)
+    {
+      if (node->content)
+       return list3 (intern ("comment"), Qnil,
+                     build_string ((char *) node->content));
+      else
+       return Qnil;
+    }
   else
     return Qnil;
 }